task MusicControl{
let stage;							//Xe[Wi[ϐ
let Music1 = GetCurrentScriptDirectory~"\Bgm\ametowa.mp3";	//Xe[WPy
let Music2 = GetCurrentScriptDirectory~"\Bgm\fukaki.mp3";	//Xe[WQy
let Music3 = GetCurrentScriptDirectory~"\Bgm\toki.mid";		//Xe[WRy
let Music4 = GetCurrentScriptDirectory~"\Bgm\ginjukai.mp3";	//Xe[WSy
let Music5 = GetCurrentScriptDirectory~"\Bgm\minosuisyou.mid";	//Xe[WTy
let Music6A = GetCurrentScriptDirectory~"\Bgm\edge.mp3";	//Xe[WU`y
let Music6B = GetCurrentScriptDirectory~"\Bgm\emergency.mp3";	//Xe[WUay

LoadMusic(Music1);
stage = GetCommonData("STAGE");					//ʃf[^ŃXe[WmF

if(stage == 1){PlayMusic(Music1);}				//PʂȂAPʉy炷
while(stage == 1){stage = GetCommonData("STAGE");yield;}	//PʂI܂őҋ@
DeleteMusic(Music1);						//Pʉy폜
LoadMusic(Music2);
if(stage == 2){PlayMusic(Music2);}				//QʂȂAQʉy炷
while(stage == 2){stage = GetCommonData("STAGE");yield;}	//QʂI܂őҋ@
DeleteMusic(Music2);						//Qʉy폜
LoadMusic(Music3);
if(stage == 3){PlayMusic(Music3);}				//RʂȂARʉy炷
while(stage == 3){stage = GetCommonData("STAGE");yield;}	//RʂI܂őҋ@
DeleteMusic(Music3);						//Rʉy폜
LoadMusic(Music4);
if(stage == 4){PlayMusic(Music4);}				//SʂȂASʉy炷
while(stage == 4){stage = GetCommonData("STAGE");yield;}	//SʂI܂őҋ@
DeleteMusic(Music4);						//Sʉy폜
LoadMusic(Music5);
if(stage == 5){PlayMusic(Music5);}				//TʂȂATʉy炷
while(stage == 5){stage = GetCommonData("STAGE");yield;}	//TʂI܂őҋ@
DeleteMusic(Music5);						//Tʉy폜

LoadMusic(Music6A);
LoadMusic(Music6B);						
if(stage == 6){
if(GetCommonData("STAGE6_CHOOSE") == 1){PlayMusic(Music6A);}	//U`ʂȂAU`ʉy炷
if(GetCommonData("STAGE6_CHOOSE") == 2){PlayMusic(Music6B);}	//UaʂȂAUaʉy炷
}
while(stage == 6){stage = GetCommonData("STAGE");yield;}	//UʂI܂őҋ@
DeleteMusic(Music6A);						//U`ʉy폜
DeleteMusic(Music6B);						//Uaʉy폜

loop{yield;}
}

task BGControl{
SetCommonData("ON_SPELL",0);
let stage;
let spell;
let BG1 = GetCurrentScriptDirectory~"\BG\yun_3780.jpg";
let BG2 = GetCurrentScriptDirectory~"\BG\eyes0048.jpg";
let BG3 = GetCurrentScriptDirectory~"\BG\seiryu808.jpg";
let BG4 = GetCurrentScriptDirectory~"\BG\yun_6914.jpg";
let BG5 = GetCurrentScriptDirectory~"\BG\yun_5626.jpg";
let BG6 = GetCurrentScriptDirectory~"\BG\ki809.jpg";

stage = GetCommonData("STAGE");

LoadGraphic(BG1);
if(stage == 1){
SetTexture(BG1);SetGraphicRect(0,0,384,448);SetAlpha(150);yield;}
while(stage == 1){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG1);


stage = GetCommonData("STAGE");

LoadGraphic(BG2);SetGraphicScale(2,2);
if(stage == 2){
SetTexture(BG2);SetGraphicRect(0,0,384,448);SetAlpha(150);yield;}
while(stage == 2){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG2);


stage = GetCommonData("STAGE");

LoadGraphic(BG3);SetGraphicScale(1,1);
if(stage == 3){
SetTexture(BG3);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 3){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG3);


stage = GetCommonData("STAGE");

LoadGraphic(BG4);
if(stage == 4){
SetTexture(BG4);SetGraphicRect(0,0,384,448);SetAlpha(170);yield;}
while(stage == 4){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG4);


stage = GetCommonData("STAGE");

LoadGraphic(BG5);
if(stage == 5){
SetTexture(BG5);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 5){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG5);


stage = GetCommonData("STAGE");

LoadGraphic(BG6);
if(stage == 6){
SetTexture(BG6);SetGraphicRect(0,0,384,448);SetAlpha(200);yield;}
while(stage == 6){stage = GetCommonData("STAGE");yield;}
DeleteGraphic(BG6);

}